home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
fibonac.zip
/
FIBONAC.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1993-01-04
|
659b
|
44 lines
PROGRAM FIBONACCI;
VAR
I,RES : INTEGER;
FUNCTION FIB (N: INTEGER) :INTEGER;
VAR
X,Y,J,K : INTEGER;
BEGIN
IF (N < 0) THEN
BEGIN
WRITELN ('NEGATIVE ARGUMENT TO THE FIBONACCI FUNCTION');
EXIT
END;
IF (N <= 1) THEN
BEGIN
FIB := N;
EXIT
END;
X := FIB(N-1);
Y := FIB(N-2);
FIB := X + Y;
WRITELN ('N= ',N,' X= ',X,' Y= ',Y);
END;
BEGIN
CLRSCR;
WRITE ('ENTER THE FIBONACCI NUMBER => ');
READ (I);
WRITELN; WRITELN;
WRITELN ('THE FIBONACCI SEQUENCE IS:');
WRITELN;
RES := FIB(I);
WRITELN;
WRITELN ('THE FIBONACCI RESULT IS = ',RES);
END.